home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CLUB Cyberlesque
/
CLUB Cyberlesque.iso
/
pc
/
install.dat
< prev
next >
Wrap
Text File
|
1994-11-23
|
7KB
|
181 lines
/*
INSTALL.DAT
Project: Club Cyberlesque
Version: 1.0
*/
@DefineProject
@Name = "Club Cyberlesque"
@Version = "1.0"
@SubDir = "\\cyber"
@OutDrive = C
@EndProject
@DefineVars
@Integer @cyber = 16
@Integer @qtw = 1408
@Integer @TSIZE = @Eval(@cyber+@qtw)
@Integer @Red = @RGB(255,0,0) //DEFINE COLOR RED
@Integer @Green = @RGB(0,255,0) //DEFINE COLOR GREEN
@Integer @Blue = @RGB(0,0,255) //DEFINE COLOR BLUE
@Integer @Black = @RGB(0,0,0) //DEFINE COLOR BLACK
@Drive @QTWDrive = C
@Dir @QTWDirectory = "\\QTW\\BIN"
@Qstring @CDLetter = "@StartupDrive"
@EndVars
@BackgroundMode(3,@Blue,@Black)
@Display@Cls@!This program installs the @Name on your hard drive.
To continue, choose "OK". To quit, choose "Cancel".@Pause@Enddisplay
@SetOption(1001)
@SetOption(1002)
LOOP:
@BackgroundMode(3,@Blue,@Black)
@DlgCtrlSize(0,3,5,6,40) // set coordinates & size of list box
@GetGroups @Checkbox@!Select Programs to install:
@Set S = "Install @Name"
@Set Q = "Install Quicktime for Windows 1.1" @SetGroup(S) @SetGroup(Q) @EndGroups
@If('S' [! @Group)
@If('Q' [! @Group)
@Display
You have not selected any programs to install.
@Pause
@Abort
@EndDisplay
@EndIf
@EndIf
NEWDRIVE: // Goto label for reselecting drive
QTWNEWDRIVE: // Goto label for reselecting drive
//@BackgroundMode(3,@Blue,@Black)
@If('Q' [= @Group)
@DlgCtrlSize(0,1,40,12,55)
@GetOutDrive @QTWDrive @Prompt="Choose Quicktime for Windows target drive"@Suppress(0,16) @Suppress(A) @Suppress(B)
Please select the drive where
you wish the Quicktime for Windows
1.1 to be installed on your machine.
Quicktime must be installed properly
for @name to operate correctly.
Any available drive can be used
assuming you have access rights to
the drive you select, and there is
approximately 1.42 Megabytes available
for installation. @EndOutDrive
QTWNEWDIR:
//@BackgroundMode(3,@Blue,@Black)
@DlgCtrlSize(0,6, 0, 7,35)
@GetSubdir @QTWDirectory @Prompt = "Choose Quicktime for Windows target directory"
Please select the directory you wish
Quicktime for Windows 1.1 to be installed under. @EndSubdir
@EndIf
@If ('S' [= @Group) @cyber = 16 @Else @cyber = 0 @EndIf //if group not selected zero out
@If ('Q' [= @Group) @qtw = 1408 @Else @qtw = 0 @EndIf //if group not selected zero out
@TSIZE = @Eval((@cyber+@qtw)) // add selected options' size requirements
// if total size > free space, then display
// blue background and set default to loop back and select again.
@If(@TSIZE*1024 > @DiskFree(@QTWDrive))
//@BackgroundMode(3,@Blue,@Black)
@Display
The drive you have selected does not have
enough free space available.
@Pause
@EndDisplay
@GOTO NEWDRIVE
@EndIf
//@BackgroundMode(3,@Blue,@Black)
@SetOption(1600) @ClearOption(1700)
@DlgCtrlSize(0,8,12,11,35)
@GetOption @Prompt = "Selected files summary"
You have selected to install the following options.
@If(2200 [= @Option)@name Will not be copied to hard drive. @Else @If ('S' [= @Group)@name @cyber@!K @Else@name WILL NOT BE INSTALLED @EndIf @EndIf
@If ('Q' [= @Group) Quicktime for Windows @qtw@!k to @QTWDrive:@QTWDirectory @Else Quicktime for Windows WILL NOT BE INSTALLED @EndIf
@If ('Q' [= @Group)Space on @qtwDrive: required is @qtw@!k @EndIf
You may:
@Option 1600 = "CONTINUE"
@Option 1700 = "RESELECT OPTIONS"
@EndOption
@if (1700 [= @Option)
@Goto LOOP
@EndIf
@DefineDisk
@Label = "Club Cyberlesque"
@File cyber.dll @OUT @WindowsDrive:\@WindowsDir\*.* @OVERWRITE @Group S @Size 16
@File qtw\mciqtenu.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 3872
@File qtw\playenu.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 16592
@File qtw\qthndlr.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 8272
@File qtw\qtim.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 214976
@File qtw\qtimcmgr.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 13712
@File qtw\qtole.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 72560
@File qtw\qtvhdw.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 15408
@File qtw\viewenu.dll @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 17408
@File qtw\mciqtw.drv @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 40400
@File qtw\qtnotify.exe @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 4080
@File qtw\navg.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 22912
@File qtw\qcmc.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 108400
@File qtw\qtcvid.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 181968
@File qtw\qtmsvc.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 7024
@File qtw\qtraw.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 6992
@File qtw\qtrle.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 92544
@File qtw\qtrpza.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 200368
@File qtw\qtrt21.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 58544
@File qtw\qtsmc.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 164480
@File qtw\qtyvu9.qtc @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 7376
@file qtw\player.exe @OUT @QTWDrive:\@QTWDirectory\*.* @OVERWRITE @Group Q @Size 58032
@EndDisk
@If ('Q' [= @Group)
@SetAutoexec
@ASKOverwrite
@Path = "@QTWDrive:\\@QTWDirectory;"
@EndAutoexec
@EndIf //if group not selected zero out
@Finish
@If(@BackgroundMode(3,@Blue,@Black))@EndIf
@Cls
@If ('S' [= @Group)
@ProgramManager("[CreateGroup(Virtually Everything)][AddItem(@CDLetter:\\movies\\cyber.exe, Club Cyberlesque, @WindowsDrive:\\@WindowsDir\\cyber.dll, 0)][AddItem(@StartupDrive:\\read.me, Ignore Me, @WindowsDrive:\\@WindowsDir\\cyber.dll, 1)][ShowGroup(Virtually Everything, 1)]")
@EndIf
@Cls @Name @Version is finished installing. Thank you for your purchase.
@If('Q' [= @Group)
You must reboot your computer for Quicktime for Windows to work.
@EndIf
@Pause
@Exit
@If(@BackgroundMode(3,@Blue,@Black))
@EndIf
@EndFinish
// end-of-file